home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / basecvrt / basehelp.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  53 lines
  1. VERSION 2.00
  2. Begin Form help 
  3.    BackColor       =   &H00E0E0E0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "BaseConvert Help"
  6.    ClientHeight    =   3285
  7.    ClientLeft      =   1965
  8.    ClientTop       =   1545
  9.    ClientWidth     =   4965
  10.    ControlBox      =   0   'False
  11.    Height          =   3690
  12.    Left            =   1905
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3285
  18.    ScaleWidth      =   4965
  19.    Top             =   1200
  20.    Width           =   5085
  21.    Begin CommandButton Command1 
  22.       Caption         =   "OK"
  23.       Height          =   615
  24.       Left            =   1440
  25.       TabIndex        =   1
  26.       Top             =   2280
  27.       Width           =   2055
  28.    End
  29.    Begin TextBox Texthelp 
  30.       Height          =   1455
  31.       Left            =   600
  32.       MultiLine       =   -1  'True
  33.       ScrollBars      =   2  'Vertical
  34.       TabIndex        =   0
  35.       Top             =   240
  36.       Width           =   3855
  37.    End
  38. End
  39.  
  40. Sub Command1_Click ()
  41.     help.Hide
  42. End Sub
  43.  
  44. Sub Texthelp_GotFocus ()
  45.     Dim a$, b$, c$
  46.     a$ = "To use BaseConverter, select the base that you want to convert to, then enter your number that you want to convert. Click the Convert(Enter) button and your number will be converted. If you want convert to another base, just select the new base"
  47.     b$ = " and click the Convert(Enter) button. If you want to convert another number, click ANOTHER and then enter your new number. You are restricted to numbers with a maximum of 8 digits. The source code is provided with this program. You may alter it"
  48.     c$ = " as you like; however, do not mess with the algorithm for converting to another base. If you do, who knows what number you will get."
  49.     texthelp.text = a$ + b$ + c$
  50.  
  51. End Sub
  52.  
  53.